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1 






UNIVER 0X2OCA - DX20 CROSS ASSEMBLER 


2 




; EDIT 


17 


3 
4 
5 






.OlRECf .NOBIN 


6 
7 




f *** 

¥ 


INITIALIZATION AND END MACROS *** 


8 






l all 


9 
10 






IFNDEF %%REL#<%%RELa»0> f ZERO TO PRODUCE IMAGE CODE 


11 




DEFINE 


«IMIT#< 


12 








13 






IFNDEF %%LALL f <%%LALL=«0> JIZERQ TO SUPPRESS ALL MACRO EXPANSIONS 


14 






IFNDEF %PURE # <%PURE== 1 > f ?ZERO TO BYPASS khh PC CHECKS 


15 






i%ERRC-»0 

iff <w* * ^ # ™*w t»P 


16 






%SISE««3777 ff MAXIMUM SIZE OF CQMTRGl* STORE MEMORY 


17 






IFfi %%IiALL#<liALL> 


18 






.DIRECT •XTABM 


19 






IFE %%REL#< 


20 






RIMIO 


21 






LOC 


22 






> 


23 






IFM %%RElf #<PHASE 0> 


24 






if TE C2>0( 18)<VERSION-^D10&176000>i<EDIT&1777>£6} VERSIOMCIOIEDIT 


25 




RSI0N# 

*\ w* <v» \i* * v j 


EDIT NUMBER 


26 






%LOC«*l 


27 






IFE %%LALli#<%%CREF> 


28 




> 




29 








30 


000000 


AC0*a0 




31 


ooooot 


ACls*l 




32 


000002 

V NT w ^w" M 


AC2ss2 

«** *»■ 




33 


000003 

■iwr V* v *w 


aC3s»3 

AMr *«F 




34 


000004 


AC4s&4 

•f* * 




35 


000005 


AC5ss«5 




36 


000006 


AC6==6 




37 


000007 


AC7=s7 




38 


000001 


MARX== 


l 


39 


000002 


MAR««2 




40 


000003 


1**3 





M PROGRAM VE 
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41 


DEFINE %%CREF, 


< 


42 


%ERC««0 




43 


%t»ac»»i 




44 


%DESTs*0 


45 


%MAbsO 




46 


%VAL==0 




47 


%XXXssO 




48 


%SssO 




49 


%AC= s =0 




50 


%CODE*»0 


51 


%ALUF»at 





52 


%PAGEVs 


=0 


53 


%PAGE=xO 


54 


%Ca*0 




55 


%co==o 




56 


%PQS*«0 




57 


%POSS««0 


58 


%COND«* 

TP lAtr T wr 





59 


%lssQ 




60 


%2a»0 




61 


%3«»0 




62 


%4s*0 




63 


%5a»0 




64 


%6s*0 




65 


%7»«0 




66 


%10==0 




67 


%ll»sO 




68 


%12«0 




69 


%DUMMY« 


«0 


70 


.XCREF 


%ERC , %PURE , %SIZE , %LOC , %DEST 


71 


.XCREF 


%MA,%VAfc,%XXX,%S,%AC 


72 


.XCREF 


%CODE,%ALUF,%PAGEV,%PAGE,%C 


73 


.XCREF 


%C0,%POS,%PGSS,%COND,%QUMMY 


74 


.XCREF 


%t,%2,%3,%4,%5 


75 


.XCREF 


%6,%7,%10,%ll,%12 


76 


* XCREF 


%%C0MP , %% ACN , %%JMP , %% JUMP , %%ERRC 


77 


.XCREF 


%%LAI*L , %%ERMP , %%LOC , %%LOCB , %%LOCC 


78 


.XCREF 


%%MOVI,%%VAIi,%%MOVA,%%AC»%%DEST 


79 


.XCREF 


%%MA , %%QUTP , %%CHAR , %%MA1 , %%CREF 


80 


.XCREF 


..END 


81 


> 





DX20CA - DX20 CROSS ASSEMBLER MACRO %53BU155) 15t44 15-Feb-82 Page 3 
DX20CA MAC 23-Apr-81 16:57 

82 DEFINE ,ME«,< 

83 -1 

84 PHASE 

85 > 
86 

87 DEFINE ,,ENDCERS),< 

88 LALL 
89 

90 PRINTX ?ER5 ASSEMBLY ERRORS EXIST 

91 > 
92 

93 DEFINE ,ENDCSIZE),< 

94 NOSYM 

95 IFN %%REL,< 

96 DEPHASE 

97 SIZE«J ,-DXMC 

98 > 

99 RADIX 10 

100 IF2 <IFN %%ERRC,<..END \%%ERRC» 

101 LALL 
102 

103 END 

104 > 
105 

106 DEFINE ,LOCCADR),< 

107 %ERCas0 

108 IFN <ADR>«.<*-%SIZE>,<%%ERMP ADDRESS "ADR" 001 OF SOUNDS IN .LQC,\.> 

109 IFL «ADR>-.>,<%%ERMP ADDRESS "ADR" LESS THAN CURRENT LOCATION IN ,LOC,\,> 

110 IFGE «ADR>«.>,< 

111 %LOC»*ADR 

112 IFE %%REL,<LOC ADR> 

113 IFN %%REL,< 

114 XLIST 

115 BLOCK «ADR>-.> 

116 LIST 

117 > 

118 > 

119 IFN %ERC,<%%ERRCs«%%ERRC+l> 

120 > 
121 

122 DEFINE %%LOC,< 

123 %ERC==0 

124 IFN %PURE,< 

125 IFN .-%LOC,<%%LOCC \%LOC> 

126 IFN %LOC&<*-%SIZE>,<%%LOC§ \%LOC> 

127 IFN %ERC,<%%ERRC**%%ERRC+l> 

128 > 

129 %LOCa»»+i 

130 > 
131 

132 DEFINE %%LOCC( ADR) ,<%%! RM XLQCATION COUNTER CHANGED, SHOULD NOW BE ADR>> 

133 

134 DEFINE %%LOCS(ADR) r <%%ERM LOCATION COUNTER OUT OF BOUNDS - A0R> 
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135 DEFINE CI (NAME, DESTIN , MARC) , < 

136 DEFINE N AME( Al , A2 , A3 ) ,< 

137 IF1 <0> 

138 IF2 < 

139 %%MOVI DES1IN, MARC, A1,A2, A3, NAME 

140 > 

141 > 

142 > 
143 

144 CI NOP, -1,-1* 

145 DEFINE N0PCA1 ,A2,A3) ,< 

146 IF1 <0> 

147 IF2 < 

148 %%MOVI -1,-1,A1,A2,A3,N0P 

149 > 

150 > 
151 

152 CI LDBR,l,-i* 

153 DEFINE t,OBR(Al , A2, A3) ,< 

154 IF1 <0> 

155 IF2 < 

156 %%MOVI l,-t,Al,A2,A3,L0BR 

157 > 

158 > 
159 

160 CI LDMEM, 4,-1** 

161 DEFINE IiDMEM ( Al ,A2,A3) ,< 

162 IF1 <0> 

163 IF2 < 

164 %%MOVI 4,-l,Al,A2,A3,LDMEM 

165 > 

166 > 
167 

168 CI LDMAR,-1,2* 

169 DEFINE LDMAR(A1 ,A2, A3) ,< 
17Q IF! <0> 

171 IF2 < 

172 %%MOVI -1,2,A1,A2,A3,LDMAR 

173 > 

174 > 
175 

176 CI kDMARX,-l,i* 

177 DEFINE U>MARX(Al,A2,A3),< 

178 IF1 <0> 

179 IF2 < 

180 %%MOVX -l,i,Ai,A2,A3,fcDMARX 

181 > 

182 > 

183 * 

184 CI IMAR,-1,3* 

185 DEFINE IMAR(A1 , A2, A3) ,< 

186 IF1 <0> 

187 IF2 < 

188 %%MOVI -l,3,Al,A2,A3 f I«AR 

189 > 
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190 > 
191 

192 CI RETURN, 7,-1* 

193 DEFINE RETURN (Al ,A2,A3),< 

194 IF1 <0> 

195 IF2 < 

196 %%MOVI 7,«1,A1,A2,A3,RETURN 

197 > 

198 > 
199 

200 CI SHR,6,-1* 

201 DEFINE SHR(A1,A2,A3),< 

202 IFi <0> 

203 IF2 < 

204 %%MQVI 6,-l,Al,A2,A3,SHR 

205 > 

206 > 
207 

208 

209 DEFINE %%MQVI(DD, AA, ARG1 ,ARG2,ARG3,NAME) ,< 

210 %%LOC 

211 %DEST*aDD 

212 %MA*s A A 

213 %ERC*s 

214 %VALs* 

215 IFMB <ARGl>,< 

216 %%VAL ARG1 , NAME 

217 IFN <%VAL&<*-377»,<IFN <%VAL 1 177+1>, <%%ERMP VALUE "ARGl" TOO LARGE IW NAME, 

218 \.» 

219 > 

220 IFNB <ARG2>,< 

221 %XXXa»0 

222 %%DEST ARG2 

223 IFE %XXX,<%%MA ARG2> 

224 IFE %XXX,<%%£RMP ILLEGAL 2ND ARGUMENT »ARG2" IN NAME,Y,> 

225 > 

226 IFNB <ARG3>,<%%ERMP TOO MANY ARGUMENTS "ARG3" IN NAME,V,» 

227 IFL %DEST,<%DEST=*0> 

228 IFL %MA,<%MA«*G> 

229 BYTE C2X»»"*Di0>S3( 18)<%DEST»*Dl0>|<%MA»»8>i<%VAL&377>(3)0(3)%DEST(2)%MAC8)lVAL 

230 IFN %ERC,<%%ERRC«*%%ERRC+1> 

231 > 
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3 3 m» 


DEFINE DATI(A1,A2,A3,A4) ,< 


233 


IF1 <0> 


234 


IF2 < 


235 


%%LOC 


236 


%DESTsx-l 


237 


%ACss -1 


238 


%MA»s -1 


239 


%ERC*a 


240 


%VAL»«0 


241 


IFB <A1>,<%%ERMP NO INPUT ADDDRESS SPECIFIED IN DATI,V.> 


242 


IFNB <A1>,< 


243 


IXXXssO 

Iff « * WW * * " 


244 


%%DEST Al 


245 


IFE %XXX,<%%MA Al> 


246 


IFE %XXX,<%%AC Al> 


247 


IFN %XXX,<%%ERMP "Al" SPECIFIED IN PLACE OF INPUT ADDRESS IN DATI,\t 


248 


> 


249 


IFE %XXX,<1%VAL Al ,DATI> 


250 


> 




IFN %VAL&<*»37>,<%%ERMP INPUT ADDRESS OF "Al" IS TOO LARGE IN DATI,\,> 


2» § i2» 


%C0DEssl !<%VAL_-2&4> 


253 


%ALUF=3%VAL&17 


254 


IFH8 <A2>,< 


255 


%XXX«sO 


256 


^jfe Ifak Cm* 


257 


IFN %XXX,<%DEST=»5> 


258 


IFE %XXX,<%%DEST A2> 


259 


IFE %XXX,<%%MA A2> 


260 


IFE %XXX,<%%0UTP A2,DATI> 


261 


IFE %XXX,<%%£RMP ILLEGAL 2ND ARGUMENT "A2* IN DATI,Y.> 


262 


> 


263 


IFNB <A3>,< 


264 


%XXX=»0 


265 


IFL %AC,<%%AC A3> 


266 


IFN %XXX,<%DESTss5> 


267 


IFE %XXX,<%%DE5T A3> 


268 


IFE %XXX,<%%MA A3> 


269 


IFE %XXX,<%%QUTP A3,DATI> 


270 


IFE %XXX,<%%ERMP ILLEGAL 3RD ARGUMENT "A3" IN DATI,V,> 


271 


> 


272 


IFNB <A4>,<%%ERMP TOO MANY ARGUMENTS "A4" IN DATI,V.> 


273 


IFL %DEST,<%DESTe*0> 


274 


IFL %MA,<%MAsssO> 


275 


IFL %AC#<%AC»*0> 


276 


IFE %DEST»7#<%%ERMP DESTIN&flOW RETURiNI w ILLEGAL IN DATIY\«» 


277 


BYTE C2X,,.-*Dl0>&3C18)<%CODE-*Dl3>i<%DEST-*DlO>l<%MA-8>i<%AC w 4>i%ALUFr3)%CO 


278 


DE(3)%DEST(2)%i«A(4)%ACC4)%ALUF 


279 


IFN %ERC,<%%ERRC*s*%%ERRC*l> 


280 


> 


281 


> 
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282 


DEFINE 


CODE (NAME, ALU, DESTIN, COD), < 


283 




DEFINE 


NAME (A1,A2,A3,A4) ,< 


284 






IF1 <0> 


v* 






IF2 < 


286 






%%MQVA COD* ALU #DE8f IN # Al * A2 * A3 * A4,NAWiE 


287 






> 


288 




> 




289 

45, v.* «r 


> 






290 








291 


DEFINE 


C2 


(NAME, ALU) ,< 


292 




CODE 


NAME, ALU, »1 ,2 


293 




CODE 


NAME # R# ALU, 5, 2 


294 


> 






«f ^ *«* 








296 




ADM#0* 




297 




CODE 


ADM,0#«»1#2* 


298 




DEFINE 


ADM (Al . A2. A3,A4) *< 

TO *» \ TO 1* , TO 1m f ~- up f TO ~ ,/ , ^ 


299 






IF1 <0> 


300 






IF2 < 


301 






%%M0VA 2*0*~1 * Al *A2#A3* A4,ADM 


302 






> 


303 




> 




304 








305 




CODE 


ADHR,0,5f 2 1 * 


306 




DEFINE 


ADMR CA1,A2# A3,A4) # < 


307 






IF! <0> 


308 






IF2 < 


309 






%%MOVA 2t0#5fAl , A2 * A3 , A4 # ADMR 


310 






> 


311 




> 




312 


*> 






313 








314 


(?2 


ADMC# 1* 




315 




CODE 


ADMC* 1 #*»1 *2^ 


316 




DEFINE 


ADMC (A1#A2.A3#A4) »< 

TO e * %TO*,TO4|»,TO»#,TO"W / ^ 


317 






IF1 <0> 


318 






If 2 < 


319 






%%MOVA 2*l**l#At #A2#A3 # A4f ADMC 


320 






> 


321 








322 








323 




CODE 


ADMCR* 1 #5» 2* 


324 




DEFINE 


ADMCR CA1 #A2 f A3. A4) .< 


325 






IF! <0> 


326 






IF2 < 


327 






%%MOVA 2# 1 #5. Al * A2#A3* A4. ADMCR 


328 






> 


329 




> 




330 


* 






331 








332 


C2 


QSMC,2* 








CODE 


OSMC,2,-l,2* 


334 




DEFINE 


OSMC (Ai,A2,A3,A4),< 


335 






IF1 <0> 


336 






IF2 < 
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337 %%MOVA 2,2,-l,Al,A2,A3,A4,05MC 

338 > 

339 > 
340 

341 CODE 0SMCR,2,5,2* 

342 DEFINE OSMCR C Al , A2 , A3 , A4 ) , < 

343 IF1 <0> 

344 IF2 < 

345 %%MOVA 2,2,5,A1,A2,A3,A4,0SMCR 

346 > 

347 > 

348 * 
349 

350 CODE M0VMEM,U,*1,2* 

351 DEFINE MQVMEM ( Al , A2 , A3 , A4 ) , < 

352 IF1 <0> 

353 IF2 < 

354 %%MOVA 2,11,-1,A1,A2,A3,A4,M0VMEM 

355 > 

356 > 
357 

358 C2 L0RCM,12* 

359 CODE MRCM,12,-l,2* 

360 DEFINE LORCM (Al ,A2,A3,A4) ,< 

361 IF1 <0> 

362 IF2 < 

363 %%MOVA 2,12,-1,A1,A2,A3,A4,L0RCM 

364 > 

365 > 
366 

367 CODE l*ORCMR,12,5,2* 

368 DEFINE LORCMR ( Al , A2 , A3 , A4) ,< 

369 IF1 <0> 

370 IF2 < 

371 %%MOVA 2,12,5,A1,A2,A3,A4,L0RCMR 

372 > 

373 > 

374 * 
375 

376 C2 LANDM,13~ 

377 CODE LANDM,13 f *lr2" 

378 DEFINE LANDM (Al ,A2, A3,A4) ,< 

379 IF1 <0> 

380 IF2 < 

381 liMOVA 2,13,-1,A1,A2,A3,A4,LANDM 

382 > 

383 > 

384 * 

385 CODE LAN OMR, 13,5,2* 

386 DEFINE LANDMR €A1,A2,A3,A4),< 

387 IF1 <0> 

388 IF2 < 

389 liMOVA 2,13,S,Ai,A2,A3,A4,l»ANDHR 

390 > 

391 > 
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392 

393 * 

394 C2 LQRM,14* 

395 CODE LORM,14,-l,2* 

396 DEFINE LORM (Al ,A2,A3,A4) ,< 

397 IF1 <0> 

398 IF2 < 

399 %%MOVA 2,14,-l,Ai,A2,A3,A4 f I*ORM 

400 > 

401 > 

402 

403 CODE t,QRMR,14,S,2* 

404 DEFINE LORMR (Al , A2,A3,A4) ,< 

405 m <0> 

406 IF2 < 

407 %%MOVA 2,14,5,Al,A2,A3,A4,LORMR 

408 > 

409 > 
410 

411 

412 C2 liXORM,15" 

413 CODE LX0RM,15,-1,2* 

414 DEFINE WORM (Al ,A2,A3,A4) ,< 

415 IF1 <0> 

416 IF2 < 

417 %%MOVA 2,15,-1,A1,A2,A3,A4,LX0RM 

418 > 

419 > 
420 

421 CODE LXQRMR, 15,5,2* 

422 DEFINE liXORMR (Al ,A2, A3, A4) ,< 

423 IF1 <0> 

424 IF2 < 

425 %%MOVA 2,15,5,Al,A2,A3,A4,l#X0RMR 

426 > 

427 > 
428 

429 

430 C2 TSM,16* 

431 CODE ISM, 16,-1,2* 

432 , DEFINE ISM ( Al , A2, A3,A4) ,< 

433 IF1 <0> 

434 IF2 < 

435 %%MOVA 2,16,-1,AI,A2,A3,A4,TSM 

436 > 

437 > 
438 

439 CODE TSMR, 16,5,2* 

440 DEFINE fSMR (A1,A2,A3,A4),< 

441 IF1 <0> 

442 IF2 < 

443 %%MQVA 2,16,5,Al,A2,A3,A4,fSMR 

444 > 

445 > 

446 * 
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447 

448 C2 QSM,17* 

449 CODE 0SM,17,-1,2* 

450 DEFINE 08M ( Al , A2 , A3 , A4) , < 

451 IF1 <0> 

452 IF2 < 

453 %%MOVA 2,17,-1,A1,A2,A3,A4,0SM 

454 > 

455 > 
456 

457 CODE 0SMR,17,5,2* 

458 DEFINE OSMR ( Al , A2 , A3 , A4) , < 

459 IF1 <0> 

460 IF2 < 

461 %%MOVA 2,17,5,Al,A2,A3,A4,OSMR 

462 > 

463 > 
464 

465 * 

466 

467 DEFINE C3 (MAME,ALU),< 

468 CODE NAME, ALU, -1,3 

469 CODE NAM£*R,ALU,5,3 

470 > 
471 

472 C3 ADB,0* 

473 CODE ADB,0,-1,3* 

474 DEFINE ADB (Al ,A2, A3,A4) ,< 

475 IFl <0> 

476 IF2 < 

477 %%MOVA 3,0,-l,Al,A2,A3,A4,ADB 

478 > 

479 > 

480 

481 CODE AD8R,0,5,3* 

482 DEFINE ADBR (At, A2,A3,A4) ,< 

483 IFl <0> 

484 IF2 < 

485 %%MOVA 3,0,5,A1,A2,A3,A4,ADBR 

486 > 

487 > 

488 " 

489 * 

490 C3 ADBC,l* 

491 CODE ADBC,A,»1,3* 

492 DEFINE ADiC CA1,A2,A3,A4) ,< 

493 IFl <0> 

494 IF2 K 

495 %%»OVA 3,l,-t,Al,A2,A3,A4,AMC 

496 > 

497 > 
498 

499 CODE ADBCR, 1,5,3* 

500 DEFME ADBCR CA1 , A2,A3, A4) ,< 

501 IFl <0> 
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502 IF2 < 

503 %%MOVA 3,1,5,A1,A2,A3,A4,ADBCR 

504 > 

505 > 
506 

507 

508 C3 0SBC,2* 

509 CODE OSBC,2,-l,3* 

510 DEFINE OSBC (A1,A2,A3,A4) ,< 

511 m <0> 

512 IF2 < 

513 %%MOVA 3,2,-l,Al,A2,A3,A4,OSBC 

514 > 

515 > 
516 

517 CODE OSBCR,2,5,3* 

518 DEFINE QSBCR (At , A2,A3,A4) ,< 

519 m <0> 

520 IF2 < 

521 %%MOVA 3,2,5,Al,A2,A3,A4,QS8CR 

522 > 

523 > 
524 

525 

526 C3 I«C#3* 

527 CODE INC, 3, -1,3* 

528 DEFINE INC C Al , A2 , A3 , A4) ,< 

529 IF1 <0> 

530 IF2 < 

531 %%MOVA 3,3,-l,Al,A2,A3,A4,INC 

532 > 

533 > 
534 

535 CODE INCR,3,5,3* 

536 DEFINE INCR <A1,A2,A3,A4),< 

537 IF1 <0> 

538 IF2 < 

539 %%MOVA 3,3, 5, Al, A2,A3,A4,INCR 

540 > 

541 > 
542 

543 

544 C3 ADC, 4* 

545 CODE ADC, 4,-1, 3* 

546 DEFINE ADC (A1,A2,A3,A4) ,< 

547 IF1 <0> 

548 IF2 < 

549 %%«Q¥A 3,4,-l,Al,A2,A3,A4,ADC 

550 > 

551 > 
552 

553 CODE ADCR,4,5,3* 

554 DEFINE ADCR (At , A2, A3, A4) ,< 

555 IF1 <0> 

556 IF2 < 
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557 %%MOVA 3,4,5,A1,A2,A3,A4,ADCR 

558 > 

559 > 
560 

561 

562 C3 SHL,5* 

563 CODE SHL,5,-1,3* 

564 DEFINE SHL C Al , A2 , A3 , A4 ) , < 

565 IFl <0> 

566 IF2 < 

567 %%MOVA 3,5,-l,Al,A2,A3,A4,SHt, 

568 > 

569 > 

570 * 

571 CODE SHLR,5,5,3* 

572 DEFINE 5HLR ( Al , A2 , A3 , A4 ) ,< 

573 IF1 <0> 

574 IF2 < 

575 %%MOVA 3,5,5,A1,A2,A3,A4,SHLR 

576 > 

577 > 
578 

579 

580 C3 R0TI»,6- 

581 CODE RQTL,6,«i,3* 

582 DEFINE ROTl, C Al , A2 , A3 , A4) , < 

583 IF1 <0> 

584 IF2 < 

585 %%MOVA 3,6,-l,Al,A2,A3,A4,R0TL 

586 > 

587 > 
588 

589 CODE R0fIiR,6,5,3* 

590 DEFINE ROTLR ( Al , A2 , A3 , A4) , < 

591 IF1 <0> 

592 IF2 < 

593 %%MOVA 3,6,5,A1,A2,A3,A4,R0TLR 

594 > 

595 > 

596 * 

597 * 

598 C3 DEC, 7* 

599 CODE DEC, 7, -1,3* 

600 DEFINE DEC C Al , A2 , A3 , A4) , < 

601 IFl <0> 

602 IF2 < 

603 %%MOVA 3,7,-l,Ai,A2,A3,A4,DiC 

604 > 

605 > 

606 * 

607 CODE DECR,7,S,3* 

608 DEFINE DECR CAl,A2,A3,A4> ,< 

609 IFl <0> 

610 IF2 < 

611 %%MOVA 3,7,5,Al,A2,A3,A4,DECR 
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612 > 

613 > 
614 

615 

616 C3 MOV, 10* 

617 CODE MOV, 10, -1,3* 

618 DEFINE MOV ( Al , A2 , A3 , A4 ) , < 

619 IFl <0> 

620 IF2 < 

621 %%MOVA 3,10,-1,A1,A2,A3,A4,M0V 

622 > 

623 > 

624 * 

625 CODE MOVR, 10,5,3* 

626 DEFINE MOVR (Al , A2»A3,A4) ,< 

627 IFl <0> 

628 IF2 < 

629 %%MOVA 3,10,5,Al,A2,A3,A4,MOVR 

630 > 

631 > 
632 

633 

634 CODE MOVB,ll,-l,3* 

635 DEFINE MOVB (Al , A2, A3,A4) ,< 

636 IFl <0> 

637 IF 2 K 

638 %%MOVA 3,lt,-l,Ai,A2,A3,A4,MOV8 

639 > 

640 > 
641 

642 C3 L0RCB,12* 

643 CODE LQRCB, 12,-1,3* 

644 DEFINE LQRCB (Al , A2, A3,A4) ,< 

645 IFl <0> 

646 IF2 < 

647 %%MOVA 3,12,-1,A1,A2,A3,A4,L0RCB 

648 > 

649 > 
650 

651 CODE LORCBR, 12,5,3* 

652 DEFINE LORCBR (Al , A2,A3»A4) ,< 

653 IFl <0> 

654 IF2 < 

655 %%MOVA 3,12,5,Al,A2,A3,A4,LORCBR 

656 > 

657 > 

658 * 

659 * 

660 C3 LANDS, 13* 

661 CODE LAND1,13,-1,3* 

662 DEFINE LANDB (Al ,A2, A3, A4> ,< 

663 IFl <0> 

664 IF2 < 

665 %%MOVA 3,13,-l,Al,A2,A3,A4,LAflDB 

666 > 
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667 > 

668 * 

669 CODE LANDBR, 13,5,3* 

670 DEFINE LANDBR (A1,A2,A3,A4),< 

671 IF1 <0> 

672 IF2 < 

673 %%MQVA 3,13,5,A1,A2,A3,A4,LANDBR 

674 > 

675 > 
676 

677 

678 C3 LOR8,14* 

679 CODE LORB f 14,-1,3* 

680 DEFINE LORB (Al ,A2,A3,A4> ,< 

681 IF1 <0> 

682 IF2 < 

683 %%MOVA 3,14,-1,A1,A2,A3,A4,L0RB 

684 > 

685 > 
686 

687 CODE WRBR,14,5,3* 

688 DEFINE t»QRBR (Ai,A2, A3,A4) ,< 

689 IFl <0> 

690 1F2 < 

691 %%MOVA 3,14,5,A1,A2,A3,A4,W3RBR 

692 > 

693 > 

694 * 
695 

696 C3 fcX0RB,15* 

697 CODE WC0RB, 15,-1,3* 

698 DEFINE LXORB (Al ,A2, A3,A4) ,< 

699 IFl <0> 

700 IF2 < 

701 %%«OVA 3,l§,-i,Ai,A2,A3,A4,MCORB 

702 > 

703 > 
704 

705 CODE fcXORBR,15,5,3* 

706 DEFIME LXQR0R (Al, A2,A3, A4) ,< 

707 IFl <0> 

708 IF2 < 

709 %%M0VA 3,15,5,Ai,A2,A3,A4,l»X0RBR 

710 > 

711 > 
712 

713 * 

714 C3 fSB,16* 

715 CODE f SB, 16,-1, 3* 

716 DEFINE fSB (Al , A2,A3,A4) ,< 

717 IFl <0> 

718 IF2 < 

719 %%MOVA 3,16,-l,Al,A2,A3,A4,fS8 

720 > 

721 > 
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722 

723 CODE TSBR, 16,5,3* 

724 DEFINE TSBR (Al , A2, A3,A4) ,< 

725 IF! <0> 

726 IF2 < 

727 %%MOVA 3,16,5,A1,A2,A3,A4,TSBR 

728 > 

729 > 
730 

731 

732 C3 0SB,17* 

733 CODE 0SB,17,-1, 3* 

734 DEFINE OSB (Al , A2 , A3 , A4) , < 

735 IFl <0> 

736 IF2 < 

737 %%M0VA 3,17,-l,Al,A2,A3,A4,OSB 

738 > 

739 > 

740 

741 CODE OSBR,17,5,3* 

742 DEFINE OSBR ( Al , A2 , A3 , A4 ) , < 

743 IFl <0> 

744 IF2 < 

745 %%MOVA 3,17,5,Al,A2,A3,A4,OSBR 

746 > 

747 > 
748 

749 * 
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750 DEFINE %%MOVA (CC, AA,DD,ARG1 ,ARG2,ARG3, ARG4,NAME) ,< 

751 %%LOC 

752 %CODE**CC ;f INSTRUCTION CODE 

753 %ALUFs»AA ; ; ALU FUNCTION 

754 %DEST*»DD ; f DESTINATION 

755 %AC-= -1 ;?AC ADDRESS 

756 %MA»s -1 n nk CONTROL 

757 %ERC*« } ; ERROR FLAG 

758 IFNB <ARG1>,< 

759 %XXXa«0 

760 %%AC ARGl 

761 IFE %XXX,<IFN %ALUF-11,<%AC»»0» 

762 IFN %XXX,<IFE %ALUF-1 1 , <%DEST**5» 

763 IFE %XXX,<%%DE5T ARG1> 

764 IFE %XXX,<%%MA ARG1> 

765 IFE %XXX,<%%OUTP ARGl , NAME> 

766 IFE %XXX,<%%ERMP ILLEGAL 1ST ARGUMENT "ARGl" IN NAME,V.> 

767 > 

768 IFNB <ARG2>,< 

769 %XXX**0 

770 %%DEST ARG2 

771 IFE %XXX,<%%MA ARG2> 

772 IFE %XXX,<%%QUTP ARG2#NAME> 

773 IFE %XXX,<%%£RMP ILLEGAL 2ND ARGUMENT *ARG2» IN NAME, \»> 

774 > 

775 IFNB <ARG3>,< 

776 %XXX»0 

777 %%DEST ARG3 

778 IFE %XXX,<%%MA ARG3> 

779 IFE %XXX,<%%OUTP ARG3#NAME> 

780 IFE %XXX,<%%ERMP ILLEGAL 3RD ARGUMENT "ARG3* IN NAM£,\,> 

781 > 

782 IFNB <ARG4>,<%%ERMP TOO MANY ARGUMENTS "AR64* IN NAME,\.> 

783 IFL %DEST,<%DEST*BO> 

784 IFL %MA,<%MA**0> 

785 IFL %AC,<%AC»«0> 

786 BYTE C2)<..-*D10>&3C18)<%CODE«.*Dl3>l<%DEST-*D10>i<%MA«8>l<%AC*.4>t%ALUFC3)%C0DE{3)iDE 

787 ST(2)%MAt4)%ACC4)%ALUF 

788 IFN %ERC,<%%ERRC*«%%ERRC+1> 

789 > 
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790 DEFINE %%AC(ARG),< 

791 IFIDN <ARGXACO>,<%AC«sO> 

792 IFIDN <ARGXACl>,<%AC»«l> 

793 IFIDN <ARGXAC2>,<%AC==2> 

794 IFIDN <ARGXAC3>,<%ACs«3> 

795 IFIDN <ARGXAC4>,<%AC««4> 

796 IFIDN <ARGXAC5>,<%AC«*5> 

797 IFIDN <ARGXAC6>,<%AC»*6> 

798 IFIDN <ARGXAC7>,<%AC»*7> 

799 IFGE %AC,< 

800 %XXX*s-l 

801 %DUMMY=aARG 

802 > 

803 > 
804 

805 DEFINE %%DEST(ARG) ,< 

806 iFt, %DEST#< 

807 IFIDN <ARGX8R>,<%DEST**1> 

808 IFIDN <ARGXMEM>,<%DEST«4> 

809 IFIDN <ARGXBRSR>,<%DESTss6> 

810 IFIDN <ARGXRETURN>,<%DEST*«7> 

811 IFGE %DEST, < 

812 %XXX=s-l 

813 > 

814 > 

815 > 
816 

817 DEFINE %%MA(ARG) ,< 

818 IFt, %MA,< 

819 IFIDN <ARGXMARX>,<%MAs*l> 

820 IFIDN <ARGXMAR>,<%MA«s2> 

821 IFIDN <ARGXI>,<%MA«3> 

822 IFGE %MA,< 

823 %XXX»*-1 

824 %DUMM¥s=ARG 

825 > 

826 > 

827 > 
828 

829 DEFINE %%OUTPCARG,NAME) ,< 

830 IFL %DESt,< 

831 %%VAL ARGfNAME 

832 IFE %VAI,&<*-37>, < 

833 IFGE %AC,<%%ERMS> BOTH AC AND OUTPUT ADDRESSES SPECIFIED IN NAME,Y.> 

834 %AC«»%VALS17 

835 %DEST«*2i<%VAL„-46l> 

836 %XXX«-1 

837 > 

838 > 

839 > 



I 
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840 DEFINE %%ERM(MSG) »< 

841 IFE %ERC,<LALL 
842 

843 PRINTX ??????????? MSG 

844 IFE %%LALL,<SALL> 

845 %ERC**-1 

846 > 

847 > 
848 

849 DEFINE %%£RMPCMSG, ADR) ,< 

850 %%ERM MSG INST AT PC ADR 

851 > 
852 

853 DEFINE %%VAL( ARG/NAME) ,< 

854 %S*sbQ 

855 IRPC ARG,< 

856 IFE "ARG"-"S",<%S««i> 

857 IFE "ARG"-"%",<%S»»i> 

858 IFGE "ARG"- , »A%<IFLE "ARG"-"Z" ,<%S*sl» 

859 IFN <"ARG"-".">,<STOPI> 

860 > 

861 IFE %S,<%VAL*sARG> 

862 IFN %S,< 

863 IFDEF ARG,<%VALasARG> 

864 IFNDEF ARG,< 

865 %%ERMP UNDEFINED VALUE "ARG" IN NAMC y Y* 

866 %VAL«*0 

867 > 

868 > 

869 > 



t 



\ 
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870 DEFINE Jl (NAME,COND) ,< 

871 DEFINE NAMECA1 ,A2,A3) ,< 

872 IF1 <0> 

873 IF2 < 

874 %%JMP CQND,A1,A2,A3,NAME 

875 > 

876 > 

877 > 

878 

879 Jl JMP,0* 

880 DEFINE JMPCA1 ,A2,A3) , < 

881 IF1 <0> 

882 IF2 < 

883 %%JMP 0,A1,A2,A3,JMP 

884 > 

885 > 

886 

887 Jl JMPI # 1* 

888 DEFINE JMPKA1 , A2,A3) ,< 

889 IFl <0> 

890 IF2 < 

891 %%JMp 1,A1,A2,A3,JMPI 

892 > 

893 > 
894 

895 Jl JMPBQ,2* 

896 DEFINE JMP80CA1 , A2,A3) ,< 

897 IFl <0> 

898 IF2 < 

899 %%JMP 2,A1,A2,A3,JMPB0 

900 > 

901 > 
902 

903 Jl JMP84,3* 

904 DEFINE JMP84U1 ,A2, A3) ,< 

905 IFl <0> 

906 IF2 < 

907 %%JMP 3,A1#A2,A3,JMPB4 

908 > 

909 > 
910 

911 Jl JMPB7,4* 

912 DEFINE JMPB7U1 ,A2»A3) ,< 

913 IFl <0> 

914 IF2 < 

915 %%JMP 4,A1,A2, A3,JMP»7 

916 > 

917 > 

918 * 

919 .Jl JMPC,5* 

920 DEFINE JNPCCA1 , A2, A3) ,< 

921 IFl <0> 

922 IF2 < 

923 %%JMP 5,A1,A2,A3,JMPC 

924 > 
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925 > 

926 * 

927 jl JMPZ,6* 

928 DEFINE JMP£(A1 , A2, A3) ,< 

929 IF1 <0> 

930 IF2 < 

931 %%JMP 6,A1,A2,A3,JMPZ 

932 > 

933 > 
934 

935 Jl JMPSUB,7* 

936 DEFINE JMPSUBUl ,A2,A3) , < 

937 IF1 <0> 

938 IF2 < 

939 %%JMP 7,A1,A2,A3,JMPSUB 

940 > 

941 > 
942 

943 

944 DEFINE %%CHAR(CHAR, COUNT) ,< 

945 % # COUNTss"CHAR" 

946 %Cb*%C+1 

947 > 
948 

949 DEFINE %%MAT (CHAR, COUNT) ,< 

950 I FN <%'C0UNT-«CHAR«>,< 

951 %C0sa-l 

952 STOPI 

953 > 

954 > 
955 
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956 DEFINE %%COMPCM , V) , < 

957 %COssO 

958 %POSS*«%POS 

959 IRPC M,< 

960 IFIDN <MX # >,<IFN <%C-%P0S5>,<%C0»«-1» 

961 IFDIF <MX,>,<%%MAT M,\%POSS> 

962 %POSS»»%POSS+i 

963 > 

964 IFE %C0,< 

965 %POSs«%POSS 

966 IFNB <V>,<%ALUF«sV> 

967 > 

968 > 
969 

970 DEFINE %%ACN(ARG, COUNT, NAME) r < 

971 IFE <%'COUNT&370-"0">,< 

972 %AC»»%'C0UWT&7 

973 %P0S»«%PQS*1 

974 > 

975 I FN <%*CQUNT&370- ,, 0">,< 

976 %%ERMP ILLEGAL AC SPECIFICATION "ARC* IN NAME/\# 

977 %CO»«-l 

978 > 

979 > 
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980 DEFINE %%JMPCCC, ARGl ,AR62 ,ARG3 , NAME) ,< 

981 %%LOC 

982 %ERC**0 

983 %COfiD*stCC 

984 %C*"0 

985 %lsso 

986 %2««0 

987 %3«»0 

988 %4»»0 

989 %5aso 

990 %6ss0 

991 %7«0 

992 %10**Q 

993 %ll*sO 

994 %12«*0 

995 IFN8 <ARG1>,< 

996 IRPC ARGl #< 

997 IFN %C,<%%CHAR ARG1,\%C> 

998 IFE %C,< 

999 IFIDN <ARG1X»>,<%C*»1> 

1000 IFDIF <ARGi><f>,<STOPI> 

1001 > 

1002 > 

1003 IFE %C f < 

1004 %%VAL ARGl, NAME 

1005 IFN <%VAL&<*-%SIZE»,<%%ERMP ADDRESS "ARGl" OUT OF BOUNDS IN NAME,Y. 

1006 > 

1007 IFN %PURE,<IFN «%VAL&6000>*< ,S.600G» , <%%ERMp ADDRESS "ARGl" OUT OF 

1008 CURRENT SECTION IN NAME,\.» 

1009 IFNB <ARG2>,<%%ERMP TOO MANY ARGUMENTS "ARG2* IH NAM£,Y.» 

1010 BYTE C2X— -*01O>&3(18><4»*013>J<%COND.*DlO>K%VAIifcl777>C3)4C3)%COfiD 

1011 (10)%VAk 

1012 > 

1013 IFN %C,< 

1014 %AC=»»1 

1015 %PAGE*s-l 

1016 %ALUF««-1 

1017 %PQS**1 

1018 %%CO»P 2* AC 

1019 IFE %C0,< 

1020 %%ACN ARGl, \%POSS, NAME 

1021 %%COMP ,,25 

1022 IFh %ALUF,<%%COMP +C,,26> 

1023 IFI* %Al*UF,<%At,UF*s-2> 

1024 > 

1025 IFE %AliUF+l,<%%COMP MEM.,11> 

1026 IFE %ALUF*i ,<%%COMP BR.,31> 

1027 %C0**-1 

1028 IFE tALOF+l ,<%%C0MP AO 

1029 IFE %C0,< 

1030 %%ACN ARG1,\%P0SS,NAME 

1031 %%COMP .,30 

1032 IFl* %AfcUF,<%%C0MP +l,,23> 

1033 IFl* %Al,UF,<%%C0MP tC.,24> 

1034 IFL %ALUF,<%%C0MP ♦CMEM.,17> 



DX20CA 
DX20CA 

1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
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AME,\.> 



IFL %ALUF,<%%COMP +CMEM+C.,2> 
IFL %ALUF,<%%COMp +CBR.,37> 
IFL %ALUF,<%%CQMP +C8RtC.,22> 
IFL %ALUF,<%%CQMP +MEM,,0> 
IFL %ALUF,<%%COMP +M£M+C,,1> 
IFL %ALUF,<%1C0MP +BR,,20> 
IFL %ALUF,<%%COMP +BR+C # ,21> 
IFL %ALUF,<%%COMP -l. r 27> 
IFL %ALUF,<%%COMP -MEM, # 16> 
IFL %ALUF,<%%CQMP -BR.,36> 
IFL %ALUF,<%%CO.MP iCMEM.,12> 
IFL %ALUF,<%%COMP {CBR,,32> 
IFL %ALUF f <%%COMP iMEM.,14> 
IFL %ALUF,<%%COMP IBR,,34> 
IFL %ALUF,<%%CQMP *iMEM.,15> 
IFL %ALUF,<%%COMP *|8R,,35> 
IFL %ALUF,<%%COMP &M£M # ,13> 
IFL %ALUF,<%%CQMP &BR.,33> 

> 

IFL %ALUF,< 

%%ERMP ILLEGAL 1ST ARGUMENT "ARG1" IN NAME,\, 
%ALUF»»0 

> 

%C0DEaa6 | <%ALUF.«4> 
%ALUF»»%ALUFS17 
IFNB <ARG2>,< 

%%VAL ARG2,NAME 

I FN %VAL&<*«%SIZE>,<%%ERMP ADDRESS "ARG2" OUT OF SOUNDS IN N 



IFB <ARG2>,<%VAL«*.> 
%PAGE«<%VAL&l400>--8 

IFE <%ALUF-11>,<%AC*"10!<%VAL&6000>--*D10> 

I FN %PURE,<IFN <%ALUF-11>,<IFN «%VALS6000>-<.&6000»,< 

%%ERMP ADDRESS »ARS2" OUT OF CURRENT SECTION IN NAME,\«» 

> 

IFNB <ARG3>,<%%ERMP TOO MANY ARGUMENTS "ARG3" IN NAME, Y.> 
IFL %AC,<%AC»*0> 

BYTE (2X..»*01O>«i3(l8)<%CODE.''D13>i<%COND l »*DlO>l<%PAGE*8>l<%AC^4>li 
ALUFC3)%C0DE{3}%C0NDC2)%PAGE(4}%AC(4)%ALUF 

> 



> 

IFB 



> 

IFN 



<ARG1>,< 

%%ERMP NO ADDRESS SPECIFIED IN NAME, \. 

BYTE C3)<««**D10>fi3US)<4«»Di9>C3)4C3>0Cia)0 

%ERC,<%%E8RC*»%%ERRC+1> 
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DX20CA 

1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1 126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
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DEFINE J2(NAME,IMS!),< 

DEFINE NAMECA1,A2),< 
IF! < 


> 

IF2 < 

%%J0MP INST, A1,A2, NAME 

> 

> 

> 

j2 jmp,jnp* 

DEFINE J0MP(A1,A2),< 
IF1 < 


> 

IF2 < 

%%JUMP JMP,Ai,A2,JUMP 



J2 



JUMPI,JMPI* 

DEFINE JUMPI(A1,A2),< 
IF! < 



> 

IF2 < 



%1JUMP JMPI,Al,A2,JUMPI 



J2 



JUMPC,JMPC* 

DEFINE JUMPC(A1,A2),< 
IF! < 



> 

IF2 < 



J2 



%%JUMP JMPC,A1,A2,JUMPC 



GOSUB,JMPSUB* 
DEFINE aQ5UBCAl,A2>,< 
IF1 < 


> 

IF2 < 

%%a«MP JMPSU§,A1,A2,G0SU§ 

> 

> 



DEFINE %%jyMP(IltSf, ADR, WA0R, NAME), < 
%ERC»»0 

%%VAfc ADR, NAME 
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1138 IFN %VAU,<*«%SIZE>,<%%ERMP ADDRESS "ADR" OUT OF BOUNDS IN NAME,\.> 

1139 IFNB <NADR>,<%%ERMP TOO MANY ARGUMENTS *NADR* IN MAME,\.> 

1140 IFN %ERC,<%%ERRC*«%%ERRC+1> 

1141 %PAGEV«%VAL&%SIZE 

1142 %VA!i»«%VAti&377 

1143 liDBR \%VAL 

1144 INST *BR,\%P*6EV 

1145 > 
1146 

1147 DEFINE DATA( ARG1 , ARG2 ) ,< 

1148 IF! <0> 

1149 IF2 < 

1150 %%LOC 

1151 %VALs*0 

1152 IFNB <ARG1>#<%%VAL ARG1,DATA> 

1153 IFNB <ARG2>,<%%ERMP TOO MANY ARGUMENTS "ARG1" IN DATA,V.> 

1154 BYTE (2)<„**DiO>St3Ci8)%VALS.l77777(16)%VAL 

1155 IFN %ERC,<%%ERRC«%%ERRC+1> 

1156 > 

1157 > 
1158 

1159 END 

NO ERRORS DETECTED 

PROGRAM BREAK IS 000000 
CPU TIME USED Q0S02.087 

24P CORE USED 
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ACO 
AC1 
AC2 
AC3 
AC4 
ACS 
AC6 
AC7 
I 

MAR 
MARX 

%%REL 
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SYMBOL TABLE 



OOOOOO 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000003 
000002 
000001 
OOOOOO 



spd 
SPd 
spd 
SPd 
spd 
spd 
Spd 
spd 
spd 
spd 
spd 
spd 



ACQ 


30 # 


AC1 


3l# 


AC2 


32# 


AC3 


33* 


AC4 


34# 


ACS 


35# 


AC6 


36# 


AC7 


37# 


I 


40# 


MAR 


39# 


MARX 


38# 


%%REL 


9 



296 


314 


332 


358 


376 


394 


412 


430 


448 










472 
732 


490 


508 


526 


544 


562 


580 


598 


616 


642 


660 


678 


696 


144 


152 


160 


168 


176 


184 


192 


200 












297 


305 


315 


323 


333 


341 


350 


359 


367 


377 


385 


395 


403 


421 


431 


439 


449 


457 


473 


481 


491 


499 


509 


517 


527 


535 


553 


563 


571 


581 


589 


599 


607 


617 


625 


634 


643 


651 


661 


679 


687 


697 


705 


715 


723 


733 


741 













ADB 4741 

ADBC 4921 

AD8CR 500t 

ADBR 482# 

ADC 546# 

ADCR 554# 

ADM 298* 

ADMC 316# 

ADMCR 324# 

ADMR 306# 

C2 291# 

C3 467# 
714 

CI 135# 

CODE 282« 

413 

545 

669 

DATA 1147# 

DAfI 232# 

DEC 600# 

DECR 608 » 

GOSUB 1125* 

IMAR 185# 

INC 528# 

INCR 536# 

Jl 870# 879 887 895 903 911 919 927 935 

J2 1083# 1094 1104 1114 1124 

dfMP 880# 

vIMPBO 896# 

JMPB4 904# 

JMPB7 9t2# 

JMPC 920# 

JMPI 888# 

JMPSUB 936# 

JHPZ 928# 

JUMP 1095# 

JUMPC 1115# 

JUMPI 1105# 

liANDB 662# 

iiANDBR 670# 

feANDM 378# 

LANDMR 386» 

IiDBR 153# 

LDMAR 169# 

liDMARX 177# 

fcDMEM 16t# 

LORB 680* 

LORBR 68 8 # 

LORCB 644« 

LORCBR 652# 

LORCM 360# 

IiORCMR 368 # 





396# 


liORMR 


404# 


WCORB 


698* 


LXORBR 


706* 


LXORM 


414* 


LXORMR 


4221 


MOV 


618* 


HOVB 


635* 


MOVMEM 


351* 


MOVR 


626* 


NOP 


145* 


QSB 


734* 


OSBC 


510* 


OSBCR 


518* 


OSBR 


742* 


OSM 


450* 


OSMC 


334* 


OSMCR 


342* 


OSMR 


458* 


RETURN 


193* 


RQTt, 


582* 


ROTLR 


590* 


SHL 


564* 


SHLR 


572* 


SHR 


201 * 


T5B 


716* 


TSBR 


724* 


fSM 


432* 


T8MR 


440* 


%%AC 


790* 


%%ACN 


970* 


%%CHAR 


944* 


%%C0MP 


956* 


%%CREF 


41* 


%%DEST 


805* 


%%£RM 


840* 


%%ERMP 


849* 


%%JMP 


980* 


%%JUMP 


1135* 


%%LOC 


122* 


%%LOCB 


134* 


%%LOCC 


132* 


%%MA 


817* 


%%MAT 


949* 


%%MOVA 


750* 


%%MOVI 


209* 


%%OUTP 


829* 


%%VAI* 


853* 


• .END 


87* 


• END 


93* 


♦ IN XT 


11* 


ttiOC 


106# 


• MEM 


82* 



